#' @export
metaData.SharedData <- function(obj) {
  metaData(obj$data(withSelection = FALSE, withFilter = FALSE, withKey = TRUE))
}

#' @export
pointData.SharedData <- function(obj) {
  pointData(obj$data(withSelection = FALSE, withFilter = FALSE, withKey = FALSE))
}

#' @export
polygonData.SharedData <- function(obj) {
  polygonData(obj$data(withSelection = FALSE, withFilter = FALSE, withKey = FALSE))
}
